﻿Module Module9
    Sub Main()
        Dim I, J As Integer
        ' ------------ 測試1 -------------
        For t = 1 To 3
            For J = 1 To 5
                Console.WriteLine("I={0}  J={1}", I, J)
            Next
            Console.WriteLine()
        Next

        Console.ReadKey()
        Console.Clear()

        ' ------------ 測試2 -------------
        For I = 1 To 5
            For J = 1 To 5
                Console.Write("*")
            Next
            Console.WriteLine()
        Next

        Console.ReadKey()
        Console.Clear()

        ' ------------ 測試3 -------------
        For I = 1 To 5
            For J = 1 To I
                Console.Write("*")
            Next
            Console.WriteLine()
        Next

        Console.ReadKey()
        Console.Clear()

        ' ------------ 測試4 -------------
        For I = 1 To 9
            For J = 1 To 9
                Console.WriteLine("{0} x {1} = {2}", I, J, I * J)
            Next
            Console.ReadKey()
            Console.WriteLine()
        Next
    End Sub
End Module
